Profile of (eval 268)[Sub/Quote.pm:3]

Filename	(eval 268)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 144 statements in 434µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
10	1	1	181µs	337µs	JSON::Schema::Modern::Document::_set_canonical_uri
1	1	1	39µs	82µs	JSON::Schema::Modern::Document::BEGIN@7
1	1	1	4µs	4µs	Method::Generate::Accessor::_Generated::BEGIN@12
1	1	1	4µs	12µs	Method::Generate::Accessor::_Generated::BEGIN@39

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	2µs			my $coerce_for_canonical_5furi = ${$_[1]->{"\$coerce_for_canonical_5furi"}};
3	1	0s			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
4	1	0s			my $isa_check_for_canonical_5furi = ${$_[1]->{"\$isa_check_for_canonical_5furi"}};
5	1	0s			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
6					package JSON::Schema::Modern::Document;
7	2	92µs	2	125µs	# spent 82µs (39+43) within JSON::Schema::Modern::Document::BEGIN@7 which was called: # once (39µs+43µs) by Sub::Quote::_clean_eval at line 7 no warnings 'closure'; # spent 82µs making 1 call to JSON::Schema::Modern::Document::BEGIN@7 # spent 43µs making 1 call to warnings::unimport
8					# spent 337µs (181+156) within JSON::Schema::Modern::Document::_set_canonical_uri which was called 10 times, avg 34µs/call: # 10 times (181µs+156µs) by JSON::Schema::Modern::Document::BUILD at line 149 of JSON/Schema/Modern/Document.pm, avg 34µs/call sub _set_canonical_uri {
9					($_QUOTED,$_UNQUOTED) if 0;
10					# BEGIN quote_sub PRELUDE
11					package Method::Generate::Accessor::_Generated;
12					# spent 4µs within Method::Generate::Accessor::_Generated::BEGIN@12 which was called: # once (4µs+0s) by Sub::Quote::_clean_eval at line 17 BEGIN {
13	1	1µs			$^H = 1762;
14	1	0s			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
15	1	3µs			%^H = (
16					);
17	1	79µs	1	4µs	} # spent 4µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@12
18					# END quote_sub PRELUDE
19	20	25µs			scalar do { my $value = do {
20	10	24µs			local $Method::Generate::Accessor::CurrentAttribute = {
21					init_arg => undef(),
22					name => "canonical_uri",
23					step => "coercion",
24					};
25	10	7µs			(my $_return),
26					(my $_error), (my $_old_error = $@);
27	10	4µs			(eval {
28	10	26µs	10	141µs	($@ = $_old_error), # spent 141µs making 10 calls to JSON::Schema::Modern::Document::__ANON__[JSON/Schema/Modern/Document.pm:39], avg 14µs/call
29					($_return =
30					$coerce_for_canonical_5furi->($_[1])),
31					1
32					} or
33					$_error = CORE::ref $@ ? $@ : "coercion for \"canonical_uri\" failed: ".$@);
34	10	6µs			($@ = $_old_error),
35					(defined $_error and CORE::die $_error);
36	10	8µs			$_return;
37					}
38					;
39	42	139µs	32	35µs	# spent 12µs (4+8) within Method::Generate::Accessor::_Generated::BEGIN@39 which was called: # once (4µs+8µs) by Sub::Quote::_clean_eval at line 39 (do { no warnings "void"; package Type::Tiny; ((((Scalar::Util::blessed($value) and $value->isa(q[Mojo::URL]))) && (do { local $_ = $value; not defined $_->fragment }))) or Type::Tiny::_failed_check($isa_check_for_canonical_5furi, "__ANON__", $value, "attribute_name","canonical_uri","attribute_step","isa check","mgaca","0","varname","\$self->{\"canonical_uri\"}"); $value }), # spent 12µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@39 # spent 8µs making 1 call to warnings::unimport # spent 7µs making 10 calls to Mojo::URL::fragment, avg 700ns/call # spent 4µs making 10 calls to Scalar::Util::blessed, avg 400ns/call # spent 4µs making 10 calls to UNIVERSAL::isa, avg 400ns/call
40					($_[0]->{"canonical_uri"} = $value),
41	10	15µs			($_[0]->{"canonical_uri"}),
42					} }
43	1	0s			$$_UNQUOTED = \&_set_canonical_uri;
44					}
45	1	3µs			1;
46
47					;